home *** CD-ROM | disk | FTP | other *** search
/ Chaos 3 / Chaos_3_1997-06_-_de_Side_B.d64 / job for news (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  73 lines
  1. 10 print"[147]            please wait !"
  2. 20 iff=0thenf=1:load"job.music",8,1
  3. 30 iff=1thenf=2:load"job.musicout",8,1:
  4. 105 poke45,0:poke47,0:poke49,0:poke46,64:poke48,64:poke50,64
  5. 107 s1=16194
  6. 108 s2=16216
  7. 109 s3=16255
  8. 110 s4=16329
  9. 111 data  0,  0,165, 51,141, 64, 63
  10. 112 data165, 52,141, 65, 63,169,  0
  11. 113 data133,51,169,4,133,52,32,68,229,169,80,162,0,160,0,145,51,224,3,240,5
  12. 114 data200,208,247,240,5,200,192,248,144,240,230,52,232,224,4,208,231,173,64
  13. 116 data63,133,51,173,65,63,133,52,96,165,51,141,64,63,165,52
  14. 117 data141,65,63,169,0,133,51,169,32,133,52,166,184,32,198,255,162,0,160,0,32
  15. 118 data207,255,145,51,32,225,255,240,21,224,31,240,5,200,208,239,240,5,200,192
  16. 119 data64,144,232,230,52,232,224,32,208,223,166,184,32,204,255,173,64,63,133
  17. 120 data51,173,65,63,133,52,96,165,51,141,64,63,165,52,141,65,63,169,32,133,52
  18. 121 data169,0,133,51,170,160,0,145,51,224,31,240,5,200,208,247,240,5,200,192,64
  19. 122 data144,240,230,52,232,224,32,208,231,173,64,63,133,51,173,65,63,133,52,96
  20. 140 fora=0to191:readb:poke16192+a,b:s=s+b:next:
  21. 146 ifs<>23831thenprint"fehler":end
  22. 148 a1=53248+17
  23. 149 a2=peek(a1)
  24. 150 b1=53248+24
  25. 151 b2=peek(b1)
  26. 153 goto205
  27. 158 poke53280,hf:poke53281,hf:pokes2,pf*16+hf:pokea1,59:pokeb1,24
  28. 159 syss1
  29. 165 return
  30. 172 pokea1,a2:pokeb1,b2:poke53280,hf:poke53281,hf:printchr$(147);:return
  31. 183 open2,8,2,dn$+",p,r":get#2,a$:get#2,a$:
  32. 184 syss3:
  33. 185 close2:return
  34. 199 syss4
  35. 200 return
  36. 205 gosub199:gosub172:printchr$(159);chr$(147);:dn$="job.screen":pf=00:hf=07:
  37. 206 gosub183:gosub158:geta$
  38. 210 sys828,2
  39. 216 geta$
  40. 217 ifa$=""then216
  41. 219 gosub172:
  42. 220 sys828,0
  43. 221 gosub1000:
  44. 222 iff<3thenf=3:load"job.main",8,1
  45. 224 input"hintergr.";hf
  46. 225 input"zeichenf.";pf
  47. 227 gosub158:goto216:gosub172:end
  48. 1000 print"[147]":poke53280,6:poke53281,6
  49. 1010 print"  [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  50. 1020 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]   [194]             ";
  51. 1030 print"                      [194]   [194] ziel d";
  52. 1040 print"ieses spieles ist es,binnen [194]   [194] ";
  53. 1050 print"3 jahren soviel geld wie moeglich ";
  54. 1060 print"[194]   [194] zu  erwirtschaften. nach 3 j";
  55. 1070 print"ahren [194]   [194] folgt die  auswertung,";
  56. 1080 print" wobei  nur [194]   [194] das bargeld eine";
  57. 1090 print" rolle spielt.das [194]   [194] heisst:  v";
  58. 1100 print"or januar 1993  muessen [194]"
  59. 1110 print"  [194] alle aktien,reporter,hallen  ect. [194]"
  60. 1120 print"  [194] verkauft werden.                  [194]"
  61. 1130 print"  [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
  62. 1140 print"  [194] autor:          jens hoehne       [194]"
  63. 1150 print"  [194]                 michelangelostr.7 [194]"
  64. 1160 print"  [194]                 dresden o-8020    [194]"
  65. 1170 print"  [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
  66. 1180 print"  [194]         written in 1991           [194]"
  67. 1190 print"  [194]                                   [194]"
  68. 1200 print"  [194] vielen dank an t.leo. fuer seine  [194]"
  69. 1210 print"  [194] geistreichen (!!?!) tips !!!!!!!  [194]"
  70. 1220 print"  [194]                                   [194]"
  71. 1230 print"  [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  72. 2000 return
  73.